home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / programmers / misc / agaiff / rexx / info.agaiff < prev    next >
Encoding:
Text File  |  1978-06-29  |  933 b   |  33 lines
  1. /* ARexx-Script > Info.agaiff
  2.  *
  3.  * Shows info about the AGAiff status using the STATUS command !
  4.  */
  5.  
  6.    call close 'STDOUT'
  7.    call close 'STDIN'
  8.    call open 'STDIN','CON:0/0/500/120/AGAiff Information'
  9.    call pragma '*','STDIN'
  10.    call open 'STDOUT','*'
  11.  
  12.    address "AGAIFF_REXX"
  13.  
  14.    options results
  15.  
  16.    STATUS 0
  17.    if result == "" then say "No picture loaded."
  18.    else do
  19.              say "Actual Picture:   " result
  20.       STATUS 1; parse var result sizx sizy
  21.                 say "Size:             " sizx || "/" || sizy
  22.       STATUS 2; say "Depth:            " result
  23.       STATUS 4; say "DisplayMode:      " result
  24.       STATUS 6; parse var result rawa rawl;
  25.                 say "RAW Data:         " rawa
  26.                 say " (length)        " rawl
  27.       STATUS 3; parse var result rx1 ry1 rx2 ry2
  28.            say "Selected Range:   " rx1 || "/" || ry1 "-" rx2 || "/" || ry2
  29.    end
  30.  
  31.    say "0a0a"x || "<cr> please.."
  32.    pull
  33.